0 W=53280:POKEW,0:POKEW+1,0:GOSUB31:PRINT"[147]":FORI=1TO40:PRINT"[195]";:NEXT
1 FORI=1TO20:PRINT"[144]X[157][157]Z";:NEXT:FORI=1TO40:PRINT"[198]";:NEXT:Z=B-19:X=B+58
2 M=X:N=Z:GETA$:GOSUB5:B=B+D:P=PEEK(B):IFP<>32THEN15
3 PRINT""B$" "C$":"P1"  "B$" "D$":"P2:FORI=0TO80STEP40:POKEX+I,160
4 POKEZ+I,160:NEXT:POKEB,160:C=B:FORI=1TO35:NEXT:POKEC,32:GOTO2
5 IFA$="Q"THENZ=Z-40:POKEN+80,32
6 IFA$="A"THENZ=Z+40:POKEN,32
7 IFA$="O"THENX=X-40:POKEM+80,32
8 IFA$="L"THENX=X+40:POKEM,32
9 IFZ<1105THENZ=1105
10 IFZ+80>1865THENZ=1785
11 IFX<1142THENX=1142
12 IFX+80>1902THENX=1822
13 RETURN
15 IFP<>67ANDP<>70THEN20
16 IFD=-39THEND=41:GOTO2
17 IFD=-41THEND=39:GOTO2
18 IFD=41THEND=-39:GOTO2
19 IFD=39THEND=-41:GOTO2
20 IFP<>160THEN25
21 IFD=41THEND=39:GOTO2
22 IFD=-39THEND=-41:GOTO2
23 IFD=-41THEND=-39:GOTO2
24 IFD=39THEND=41:GOTO2
25 IFP=24THENP2=P2+10
26 IFP=26THENP1=P1+10
27 IFP1>90THENS$=C$:GOTO30
28 IFP2>90THENS$=D$:GOTO30
29 B=K:GOTO2
30 PRINT"[147]GAME  OVER[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]WINNER IS "B$" "S$:END
31 B$="PLAYER":C$="ONE":D$="TWO":B=1524:D=-39:K=B
32 PRINT"[147]   PING - BY PINGO/CIVITAS/DIXN RIAH    ":PRINTB$" "C$;
33 PRINT": Q[146] UP A[146] DOWN.":PRINTB$" "D$":[160]O[146] UP L[146] DOWN.":PRINT"FIRST TO 100 WINS."
35 GETZ$:IFZ$=""THEN35
36 RETURN